﻿
Partial Class Controles_MenuPrincipal
    Inherits System.Web.UI.UserControl
    Public clasemenu(12) As String
    Protected Sub Controles_MenuPrincipal_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Var As String
        Var = Request.QueryString("modulo")
        Select Case Var
            Case "0"
                clasemenu(0) = "nivel1"
            Case "1"
                clasemenu(1) = "nivel1"
            Case "2"
                clasemenu(2) = "nivel1"
            Case "3"
                clasemenu(3) = "nivel1"
            Case "4"
                clasemenu(4) = "nivel1"
            Case "5"
                clasemenu(5) = "nivel1"
            Case "6"
                clasemenu(6) = "nivel1"
            Case "7"
                clasemenu(7) = "nivel1"
            Case "8"
                clasemenu(8) = "nivel1"
            Case "9"
                clasemenu(9) = "nivel1"
            Case "10"
                clasemenu(10) = "nivel1"
            Case "11"
                clasemenu(11) = "nivel1"
            Case "12"
                clasemenu(12) = "nivel1"
        End Select

    End Sub
End Class
